home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / lists / mint / l_1599 / 1553 < prev    next >
Encoding:
Internet Message Format  |  1994-08-27  |  2.5 KB
  1. Subject: Re: Large directories on Minix partitions.
  2. Date: Thu, 9 Jun 94 21:38:30 CDT
  3. From: Juergen Lock <nox@jelal.north.de>
  4. In-Reply-To: <9406061541.AA05146@topo.matups.fr>; from "Thierry Bousch" at Jun 6, 94 5:41 pm
  5. Message-Id: <9406091938.AA00229@jelal.north.de>
  6.  
  7. Thierry Bousch writes:
  8. > Hello Michael,
  9. > 
  10. > > There were about 1100 files left at that point, and it took a good
  11. > > couple hours to delete them all.  This is on a TT, with an admittedly
  12. > > rather slow disk (70M MFM running RLL on an Adaptec 4070), but even so,
  13. > > five seconds per file is a bit sluggish.  This also totally spammed
  14. > > the machine, but the progress indicator gave me faith.
  15. > 
  16. > I have also encountered this problem with a minixfs directory containing
  17. > ~500 files. Apparently, thrashing occurs when the directory contents is
  18. > too big to fit in the cache.
  19.  
  20.  yup!
  21.  
  22. >  You should increase the cache sizes in
  23. > minixfs (default is 10 Kb) and recompile.
  24.  
  25.  i think default 10K is the inode cache...  i had the same thrashing
  26. when rebuilding mintlib (dir gets > 20K), since dir blocks go in syscache
  27. i patched _scache_size to 30 and make was as fast as before.
  28.  
  29.  so just make sure _scache_size is always bigger than the largest
  30. directory you want to access...  here is how i do it, another perlscript :)
  31.  
  32. #! /usr/bin/perl
  33. # xsetl [-x0xhex] symbol file -- patch executable long const
  34. #
  35. $val = 'L';
  36.  
  37. while ($_ = $ARGV[0], /^-/) {
  38.     shift;
  39.     last if /^--$/;
  40.     if (/^-x(.*)/) {
  41.         if ($1) {
  42.             $x = $1;
  43.         } else {
  44.             $x = shift;
  45.             next;
  46.         }
  47.     }
  48. }
  49. $sym = shift;
  50. $f = $ARGV[0];
  51. ($npid = open (NM, "cnm $f|")) || die "nm failed";
  52. $search = << ;
  53. while (<NM>) {
  54.     if (/^$sym\\s+([0-9a-fA-F]+)\\s/) {
  55.         \$off = hex (\$1) + 0x1c;
  56.         chop;
  57.         print;
  58.         break;
  59.     }
  60. }
  61.  
  62. eval $search;
  63. close (NM);
  64. die "not found" if (!defined ($off));
  65.  
  66. foreach (@ARGV) {
  67.     print $_, ":\t" if ($f ne $_);
  68.     open (F, "+< $_") || die "Can't open";
  69.     seek (F, $off, 0) || die "Can't lseek";
  70.     sysread (F, $d, length (pack ($val, 0))) || die "Can't read $sym";
  71.     ($valx) = unpack ($val, $d);
  72.     seek (F, $off, 0) || die "Can't lseek back";
  73.     printf "\n\t= 0x%08lx %d", $valx, $valx;
  74.  
  75.     if (defined ($x)) {
  76.         $x = oct ($x) if $x =~ /^0/;
  77.         $valx = $x;
  78.     }
  79.     $newd = pack ($val, $valx);
  80.     if ($newd ne $d) {
  81.         printf "\t -> 0x%08lx %d", $valx, $valx;
  82.         syswrite (F, $newd, length ($newd)) == length ($newd)
  83.             || die "\nCan't write back $sym";
  84.     }
  85.     print "\n";
  86.     close F || die "Can't close";
  87. }
  88. -- 
  89. J"urgen Lock / nox@jelal.north.de / UUCP: ..!uunet!unido!uniol!jelal!nox
  90.                                 ...ohne Gewehr
  91. PGP public key fingerprint =  8A 18 58 54 03 7B FC 12  1F 8B 63 C7 19 27 CF DA 
  92.